<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>Discontinuous Galerkin: /home/ronaldo/workspace/DiscontinuousGalerkin/FullMatrixSolver.f90 Source File</title>

<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
  $(document).ready(initResizable);
</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>

</head>
<body>
<div id="top"><!-- do not remove this div! -->


<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  
  
  <td style="padding-left: 0.5em;">
   <div id="projectname">Discontinuous Galerkin
   &#160;<span id="projectnumber">0.0.01</span>
   </div>
   <div id="projectbrief">Teste</div>
  </td>
  
  
  
 </tr>
 </tbody>
</table>
</div>

<!-- Generated by Doxygen 1.7.5.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Types&#160;List</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
</div>
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
  initNavTree('_full_matrix_solver_8f90.html','');
</script>
<div id="doc-content">
<div class="header">
  <div class="headertitle">
<div class="title">/home/ronaldo/workspace/DiscontinuousGalerkin/FullMatrixSolver.f90</div>  </div>
</div>
<div class="contents">
<a href="_full_matrix_solver_8f90.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a><a class="code" href="class_full_linear_solver.html">00001</a> <span class="keyword">module</span> <a class="code" href="class_full_linear_solver.html">FullLinearSolver</a>
<a name="l00002"></a>00002 
<a name="l00003"></a><a class="code" href="class_full_linear_solver.html#a4d67d28d6d8c961f9b941a0df876ae3d">00003</a>     <span class="keywordtype">real(kind=8)</span>, <span class="keywordtype">parameter</span> :: errorLimit = 1.0d-14
<a name="l00004"></a>00004 
<a name="l00005"></a>00005 <span class="keyword">contains</span>
<a name="l00006"></a>00006 
<a name="l00007"></a><a class="code" href="class_full_linear_solver.html#ae3b76466a626502899313440a44751fc">00007</a>     <span class="keyword">function </span>GaussianEliminationAlgorithm(A) result (r)
<a name="l00008"></a>00008         <span class="keyword">implicit none</span>
<a name="l00009"></a>00009 
<a name="l00010"></a>00010         <span class="keywordtype">real(kind=8)</span>, <span class="keywordtype">dimension(:,:)</span>, <span class="keywordtype">intent(inout)</span> :: A
<a name="l00011"></a>00011 
<a name="l00012"></a>00012         <span class="keywordtype">real(kind=8)</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">allocatable</span> :: r
<a name="l00013"></a>00013 
<a name="l00014"></a>00014         <span class="keywordtype">integer</span> :: n
<a name="l00015"></a>00015         <span class="keywordtype">integer</span> :: k, i, j
<a name="l00016"></a>00016 
<a name="l00017"></a>00017         <span class="keywordtype">real(kind=8)</span> :: base
<a name="l00018"></a>00018         n = <span class="keyword">size</span>(A,1)
<a name="l00019"></a>00019 
<a name="l00020"></a>00020         <span class="keyword">if</span> (n == 0) return
<a name="l00021"></a>00021 
<a name="l00022"></a>00022         <span class="keyword">allocate</span>(r(n), stat=k)
<a name="l00023"></a>00023 
<a name="l00024"></a>00024         <span class="keyword">if</span>( k /= 0) <span class="keyword">then</span>
<a name="l00025"></a>00025             print *, <span class="stringliteral">&#39;Error allocating memory for response vector.&#39;</span>
<a name="l00026"></a>00026             return
<a name="l00027"></a>00027         <span class="keyword">end if</span>
<a name="l00028"></a>00028 
<a name="l00029"></a>00029         <span class="keyword">do</span> k = 1, n-1
<a name="l00030"></a>00030             <span class="keyword">if</span> ( abs(A(k,k)) &lt;= errorLimit ) <span class="keyword">then</span>
<a name="l00031"></a>00031                 print *, <span class="stringliteral">&#39;The Matrix presents stability problems. Exiting Gaussian Elimination.&#39;</span>
<a name="l00032"></a>00032                 return
<a name="l00033"></a>00033             <span class="keyword">end if</span>
<a name="l00034"></a>00034             <span class="keyword">do</span> j = n+1, k, -1
<a name="l00035"></a>00035                 A(k,j) = A(k,j)/A(k,k)
<a name="l00036"></a>00036             <span class="keyword">end do</span>
<a name="l00037"></a>00037             <span class="keyword">do</span> i= k+1, n
<a name="l00038"></a>00038                 <span class="keyword">if</span>( A(i,k) == 0 ) continue
<a name="l00039"></a>00039                 base = - A(i,k)
<a name="l00040"></a>00040                 <span class="keyword">do</span> j = k, n + 1
<a name="l00041"></a>00041                     A(i,j) = A(i,j) + base * A(k,j)
<a name="l00042"></a>00042                 <span class="keyword">end do</span>
<a name="l00043"></a>00043             <span class="keyword">end do</span>
<a name="l00044"></a>00044         <span class="keyword">end do</span>
<a name="l00045"></a>00045         r(n) = A(n, n+1)/A(n,n)
<a name="l00046"></a>00046         <span class="keyword">do</span> k = n - 1, 1, -1
<a name="l00047"></a>00047             r(k) = A(k, n+1)
<a name="l00048"></a>00048             <span class="keyword">do</span> j = k + 1, n
<a name="l00049"></a>00049                 r(k) = r(k) - A(k,j) * r(j)
<a name="l00050"></a>00050             <span class="keyword">end do</span>
<a name="l00051"></a>00051         <span class="keyword">end do</span>
<a name="l00052"></a>00052 <span class="keyword">    end function</span>
<a name="l00053"></a>00053 
<a name="l00054"></a>00054 
<a name="l00055"></a><a class="code" href="class_full_linear_solver.html#aa221e15c05bba28c6675f97dc5d88c43">00055</a>     <span class="keyword">subroutine </span>ShowMatrix(A)
<a name="l00056"></a>00056         <span class="keyword">implicit none</span>
<a name="l00057"></a>00057 
<a name="l00058"></a>00058         <span class="keywordtype">real(kind=8)</span>, <span class="keywordtype">dimension(:,:)</span> :: A
<a name="l00059"></a>00059 
<a name="l00060"></a>00060         <span class="keywordtype">integer</span> :: m, n
<a name="l00061"></a>00061         <span class="keywordtype">integer</span> :: i, j
<a name="l00062"></a>00062 
<a name="l00063"></a>00063         m = <span class="keyword">size</span>(A,1)
<a name="l00064"></a>00064         n = <span class="keyword">size</span>(A,2)
<a name="l00065"></a>00065 
<a name="l00066"></a>00066         <span class="keyword">do</span> i = 1, m
<a name="l00067"></a>00067             <span class="keyword">do</span> j = 1, n
<a name="l00068"></a>00068                 <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(F13.5)&#39;</span>,advance=<span class="stringliteral">&quot;no&quot;</span>) A(i,j)
<a name="l00069"></a>00069             <span class="keyword">end do</span>
<a name="l00070"></a>00070             <span class="keyword">write</span>(*,*)
<a name="l00071"></a>00071         <span class="keyword">end do</span>
<a name="l00072"></a>00072 
<a name="l00073"></a>00073 <span class="keyword">    end subroutine</span>
<a name="l00074"></a>00074 
<a name="l00075"></a><a class="code" href="class_full_linear_solver.html#a16d20a989954a5fdd36fbb48c609f5ab">00075</a>     <span class="keyword">subroutine </span>LinePivoting(A)
<a name="l00076"></a>00076         <span class="keyword">implicit none</span>
<a name="l00077"></a>00077         <span class="keywordtype">real(kind=8)</span>, <span class="keywordtype">dimension(:,:)</span>, <span class="keywordtype">intent(inout)</span> :: A
<a name="l00078"></a>00078 
<a name="l00079"></a>00079         <span class="keywordtype">integer</span> :: m, n
<a name="l00080"></a>00080         <span class="keywordtype">integer</span> :: k, i, j
<a name="l00081"></a>00081         <span class="keywordtype">real(kind=8)</span> ::swap
<a name="l00082"></a>00082 
<a name="l00083"></a>00083         m = <span class="keyword">size</span>(A,1)
<a name="l00084"></a>00084         n = <span class="keyword">size</span>(A,2)
<a name="l00085"></a>00085         <span class="keyword">do</span> k = 1, m-1
<a name="l00086"></a>00086             <span class="keyword">do</span> i = k+1, m
<a name="l00087"></a>00087                 <span class="keyword">if</span> ( abs(A(k,k)) &lt; abs(A(i,i)) ) <span class="keyword">then</span>
<a name="l00088"></a>00088                     <span class="keyword">do</span> j= 1, n
<a name="l00089"></a>00089                         swap = A(k,j)
<a name="l00090"></a>00090                         A(k,j) = A(i,j)
<a name="l00091"></a>00091                         A(i,j) = swap
<a name="l00092"></a>00092                     <span class="keyword">end do</span>
<a name="l00093"></a>00093                 <span class="keyword">end if</span>
<a name="l00094"></a>00094             <span class="keyword">end do</span>
<a name="l00095"></a>00095         <span class="keyword">end do</span>
<a name="l00096"></a>00096 
<a name="l00097"></a>00097 <span class="keyword">    end subroutine</span>
<a name="l00098"></a>00098 
<a name="l00099"></a>00099 <span class="keyword">end module</span>
</pre></div></div>
</div>
  <div id="nav-path" class="navpath">
    <ul>
      <li class="navelem"><a class="el" href="_full_matrix_solver_8f90.html">FullMatrixSolver.f90</a>      </li>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>


    <li class="footer">Generated on Wed Jun 20 2012 15:23:54 for Discontinuous Galerkin by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.7.5.1 </li>
   </ul>
 </div>


</body>
</html>
